AdLeb.asp 云网互动影视系统(12套模版和资源联盟) 6.2 - ASP源码程序

www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Labeling/AdLeb.asp

    <html>
<head>
<META content=ywnt,云网互动影视管理系统 name=keywords>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>云网互动影视6.0--广告标签</title>
<LINK href="../css/css.css" type=text/css rel=stylesheet>
</head>
<BODY leftMargin=0 topMargin=0 scroll=yes MARGINHEIGHT="0" MARGINWIDTH="0">
<script language="JavaScript" src="../YWNT_TMS_Inc/YWNT_TMS_Common.js"></script>
<!--#include file="../../Conn.asp" -->
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
    <tr>
      <td class="xingmu">广告标签</td>
    </tr>
    <tr>
<%
Set Rs = server.CreateObject(YWNT_TMS_RS)
sql="Select ID,AdName from YWNT_TMS_Ad Order by ID desc"
Rs.open sql,Conn,1,1
if RS.eof then
Response.Write"<TD class=""hback"" height=""40"">暂时没有广告标签。</TD>"
else
do while not RS.eof%>
<td width="20%" align="center" class="hback"><a href="#" onClick="InsertLabel('{$Ad(<%=RS("ID")%>)}');"><%=RS("AdName")%></a></td>
<%RS.movenext     
loop
end if
RS.close     
set RS=nothing%>
</tr>
  </table>
<script language="JavaScript" type="text/JavaScript">
<!--
<%if Request.QueryString("text")=1 then%>
function InsertLabel(LabelContent)
{
	window.returnValue=LabelContent;
	window.close();
}
window.onunload=SetReturnValue;
function SetReturnValue()
{
	if (typeof(window.returnValue)!='string') window.returnValue='';
}
<%else%>
function InsertLabel(LabelContent)
{
	var obj=dialogArguments.oUtil.obj;
	obj.insertHTML(LabelContent)
	window.close();
}
<%end if%>
-->
</script>